home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 41 / Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso / -screenplay- / shareware / taskforce / install_taskforce < prev    next >
Text File  |  1999-04-20  |  3KB  |  151 lines
  1. ; $VER: Install_TaskForce 1.22 (27.03.99)
  2.  
  3. (complete 0)
  4.  
  5. ; version check
  6. (if (< (/ (getversion) 65536) 37)
  7.     (abort #msg-bad-kick)
  8. )
  9.  
  10. (welcome)
  11.  
  12. (set #lang
  13.     (askchoice
  14.         (help @askchoice-help)
  15.         (prompt "Select your preferred language.")
  16.         (choices "Deutsch" "English" "Polski")
  17.         (default 1)
  18.     )
  19. )
  20.  
  21. ;----------------------------------------------------------------------
  22. ; english strings
  23.  
  24. (if (= #lang 1) (
  25.     (set @language "english")
  26.     (set #msg-bad-kick (cat "You must be using Kickstart 2.04 or higher to run TaskForce."))
  27.     (set #msg-ask-dir (cat "Please choose a directory where to install the game. "
  28.                         "A subdirectory named \"TaskForce\" will be created."))
  29.     (set #msg-copy-files (cat "Copying game files..."))
  30.     (set #msg-install-rt (cat "Installing reqtools.library..."))
  31. ))
  32.  
  33. ;----------------------------------------------------------------------
  34. ; german strings
  35.  
  36. (if (= #lang 0) (
  37.     (set @language "deutsch")
  38.     (set #msg-bad-kick (cat "TaskForce benötigt Kickstart 2.04 oder höher."))
  39.     (set #msg-ask-dir (cat "Wähle ein Verzeichnis, in dem das Spiel installiert "
  40.                         "werden soll. Ein Unterverzeichnis namens \"TaskForce\" "
  41.                         "wird automatisch erstellt."))
  42.     (set #msg-copy-files (cat "Kopiere Programmdateien..."))
  43.     (set #msg-install-rt (cat "Installiere reqtools.library..."))
  44. ))
  45.  
  46. ;----------------------------------------------------------------------
  47. ; polish strings
  48.  
  49. (if (= #lang 2) (
  50.     (set @language "polski")
  51.     (set #msg-bad-kick (cat "Musisz mieê kickstart conajmniej 2.04 aby uruchomiê TaskForce."))
  52.     (set #msg-ask-dir (cat "Wybierz katalog gdzie chcesz mieê TaskForce. "
  53.                         "Podkatalog \"TaskForce\" bëdzie utworzony."))
  54.     (set #msg-copy-files (cat "Kopiowanie plików..."))
  55.     (set #msg-install-rt (cat "Instalowanie reqtools.library..."))
  56. ))
  57.  
  58. ;----------------------------------------------------------------------
  59.  
  60. (set @default-dest
  61.     (askdir
  62.         (prompt #msg-ask-dir)
  63.         (help @askdir-help)
  64.         (default @default-dest)
  65.     )
  66. )
  67.  
  68. (complete 20)
  69.  
  70. (set #dest-dir (tackon @default-dest "TaskForce") )
  71.  
  72. (makedir #dest-dir (infos))
  73. (makedir (tackon #dest-dir "Games"))
  74.  
  75. (complete 30)
  76.  
  77. (copyfiles
  78.     (prompt #msg-copy-files)
  79.     (help @copyfiles-help)
  80.     (source "")
  81.     (dest #dest-dir)
  82.     (choices "TaskForce" "Editor" "Data")
  83.     (infos)
  84. )
  85.  
  86. (complete 50)
  87.  
  88. (copyfiles
  89.     (prompt #msg-copy-files)
  90.     (help @copyfiles-help)
  91.     (source (tackon "Docs" @language))
  92.     (dest (tackon #dest-dir "Docs"))
  93.     (pattern "#?.guide")
  94.     (infos)
  95. )
  96.  
  97. (complete 58)
  98.  
  99. (copyfiles
  100.     (prompt #msg-copy-files)
  101.     (help @copyfiles-help)
  102.     (source "Docs")
  103.     (dest (tackon #dest-dir "Docs"))
  104.     (choices "History.guide")
  105. )
  106.  
  107. (complete 60)
  108.  
  109. (copyfiles
  110.     (prompt #msg-copy-files)
  111.     (help @copyfiles-help)
  112.     (source (tackon "Missions" @language))
  113.     (dest (tackon #dest-dir "Missions"))
  114.     (pattern "#?.?pm")
  115. )
  116.  
  117. (complete 70)
  118.  
  119. (copyfiles
  120.     (prompt #msg-copy-files)
  121.     (help @copyfiles-help)
  122.     (source (tackon "Briefings" @language))
  123.     (dest (tackon #dest-dir "Briefings"))
  124.     (pattern "#?")
  125.     (files)
  126. )
  127.  
  128. (complete 80)
  129.  
  130. (if (<> #lang 1) (
  131.     (copyfiles
  132.         (prompt #msg-copy-files)
  133.         (help @copyfiles-help)
  134.         (source "Catalogs")
  135.         (dest (tackon #dest-dir "Catalogs"))
  136.         (choices @language)
  137.     )
  138. ))
  139.  
  140. (complete 90)
  141.  
  142. (copylib
  143.     (prompt #msg-install-rt)
  144.     (help @copylib-help)
  145.     (source "Libs/reqtools.library")
  146.     (dest "LIBS:")
  147.     (confirm)
  148. )
  149.  
  150. (complete 100)
  151.